TITLE SYMMAK CONSTRUCTS LISP SYSBOL TABLE IN FILE LISP.SYM

MLON
A=1
B=2
P=14

EXTERNAL JOBSYM
INTERNAL SYMMAK
SYMMAK:	SOS 2,JOBSYM
	MOVEM 2,LST
	INIT 17
	SIXBIT /DSK/
	0
	HALT
	ENTER FILE
	HALT
	OUTPUT [IOWD 1,LST	;OUTPUT LENGTH OF FILE
		0]
	OUTPUT LST
	STATZ 740000
	HALT
	RELEASE
	CALL [SIXBIT /EXIT/]

FILE:	SIXBIT /LISP/
	SIXBIT /SYM/
	0
	0

LST:	0
	0

END SYMMAK